ブログで趣味でプログラミングからお料理まで呟いています。よろしくー。(^-^)/


トップページ > Perlについて

●Perlについて●

2021-09-21 18:43:42

標準モジュールで、画像の縦横サイズを取得する方法

画像の縦、横サイズは、Image::Magick(PerlMagick)で取得していますが、他のモジュールで取得可能です。
GDモジュールなら、Perl標準のモジュール(2021/09時点 Perl5 version24)なので、(但し、昔からあるモジュールのようです)後から手動でインストールする必要のないモジュールです。

use GD; my $img = newFromJpeg GD::Image("./sample/example.jpg"); my ($width, $height) = $img->getBounds(); print "$width:$width $height:$height ";


※newFromJpegのjpgをpngかgif、gd、xbmに変更して使用することができます。


($width,$height) = $image->getBounds();

このメソッドはそのイメージの幅と高さの2つ要素を持つリストを返します。 取得することはできますが、一度、作成したらイメージの大きさを変更することはできません。…と、Perldoc.jpには書かれていますが、画像のサイズを変更できない、ということはGDモジュール上の話ですので、それは頭の片隅に置いておいてください。

参照1「Perldoc.jp GD

参照2「cpan GD」(英語)


いいね:20